home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_1 / elispe < prev    next >
Text File  |  1995-03-31  |  1KB  |  41 lines

  1. %%HP: T(3);
  2. @ This program requires a single list of
  3. @ three or five elements.  The elements are
  4. @ { Center XRadius YRadius SAngle EAngle }
  5. @ where    Center = the center of the ellipse.
  6. @                (either pixel coordinate
  7. @                 or user unit coordinates)
  8. @       XRadius = Horizontal radius.
  9. @       YRadius = Vertical radius.
  10. @       SAngle  = Starting angle of ellipse
  11. @                 in degrees.
  12. @       EAngle  = Ending angle of ellipse
  13. @                 in degrees.
  14. @ Note:  SAngle and EAngle are used to
  15. @        create arcs.  They are optional.
  16. @        If omitted, the program will draw
  17. @        a full ellipse (SAngle = 00,
  18. @        EAngle = 3600)
  19. \<< OBJ\->
  20.   IF 3 ==
  21.   THEN 0 360
  22.   END 5 ROLL DUP
  23.   IF TYPE 5 ==
  24.   THEN PX\->C
  25.   END 5 ROLLD \->
  26. cent xrad yrad sa
  27. ea
  28.   \<< RCLF DEG xrad
  29. sa COS * cent RE +
  30. yrad sa SIN * cent
  31. IM + R\->C sa ea
  32.     FOR an xrad an
  33. COS * cent RE +
  34. yrad an SIN * cent
  35. IM + R\->C DUP ROT
  36. LINE xrad yrad * \v/
  37. INV 5 *
  38.     STEP DROP STOF
  39.   \>>
  40. \>>
  41.